


ÅTAR | 


Computer 


ENTHUSIASTS 
3662 Vine Maple Dr Gugene OR 97405 


JULY-AUGUST 1984 
Editors: Mike Dunn, Jim Bumpas, Larry Gold 


A 
C 
E 


| ШШШ ШП ШП М 
«У Ж 5% 72 DW TN 
NE ің С 


m! ИҚ SN 
е 5224) 
ИКЕН s 


% wu % 


E afe me 
К n 


Qm 


, 
2 
ч 


е, BA 
oe Я 
ы Fi 
ж; р 


P 


MM 26 
а M ON 
ы ARN SN MM 





NO MEETING THIS MONTH 


ONE LAST BLAST 


Two years is not a long time out of a man's life. The past two years 
have been very exciting and seem to have been exceptionally full of 
activity. My wife claims this is because І was never home (which isn't 
true, | distinctly remember having dinner with her last month) and I 
spend all of my time running around at meetings. Generally it has 
been a very worthwhile investment of my time. 

The microcomputer industry has changed quite a lot during my two 
years in office. Texas Instruments sparked an industry-wide price war 
reminiscent of the old gas wars. This resulted in TI dropping the 99/4A 
computer and helped several other major computer makers lose many 
millions of dollars in the effort to maintain a piece of the market. Atari 
was not unscathed in this little fiasco; in fact Atari has been one of the 
more interesting companies to watch over the years. Lately | am 
reminded of the recipe for making steel: Take several tons of ore, add 
some coal and limestone, and burn the daylights out of the whole 
mess. The good stuff stays put and the slag floats off the top. 

It seems Atari has had its share of personnel turnover and upheaval. 
Hopefully the new stripped down version of Atari will be “lean and 
mean" as advertised, and will offer another new generation of 
leadership in home computer design. | don't yet know what the final 
version of the 1450XLD will look like or act like. If it is as good as some 
people at Atari claim, it will be good indeed. 

When і purchased my 800 it was because | had studied all of the 
available home and personal computers. The study convinced me the 
Atari had more to offer for the dollar than any other system. Over the 
years | have felt my decision was the correct one. The design of the 
Atari 800/400 is ahead of its time, and is now basically the industry 
standard as far as conceptual design. (Hopefully | won't get sued for 
saying | think the COMMODORE 64/VIC 20 and TI99/4A are basically 
clones of the Atari design) Graphics and sound have become a 
requirement among both personal and business computers within the 
last few years, and Atari was the first to design a sensible system for 
adding those capabilities to a microcomputer. 

The challenge now for Atari is to once again step out in front of the 
crowd. The plan Atari has talked about has to do this time with the 
machine/human interface. The joystick, keyboard and paddle 
controllers are bound for retirement if Atari has anything to say about 
it. 

The user groups also have a new challenge today. The software 
industry is having absolute convulsions over the amount of piracy 
taking place; numbers of copies of any given new release are spread 
around the country before any legitimate copies are sold. 

The industry is trying everything they know to stop or at least slow 
down the rate of loss, but this is really something only consumers can 
do. The user groups can be heroes or villains, depeding on how the 
group is run and how they react to piracy. 

Another challenge faced by the user groups is filling the gaps in 
software left by the commercial software publishers. One of the rules 
of publishing software is you DON'T publish any software which can't 
be expected to sell a certain large number of copies. Since the 
microcomputer market has shown a tendency to be heavily 
entertainment oriented and fairly business oriented, there has seemed 
to be little room left for educational software. In particular, there has 
been very little programming done for the minority of people who 
suffer from various educational or physical handicaps. | am happy to 
say the new ACE President, Bob Browning, is very concerned with this 
issue and will be trying to encourage the development of a large body 
of public-domain educational software. Our library already has a fair 
number of educational programs, but again there are the inevitable 
gaps. 

During my term as president, | found the general membership of the 
ACE is a dedicated and giving group of people who are willing to 
devote time and energy іп a good cause. As | step down from office | 
want to encourage all of you who have time to program to work at 
developing educational software, especially software for the 
handicapped. | thank all of you for the suport over the past two years, 
and for being patient with me. You will continue to hear from me, as | 
am now a member of MICROBITS Peripheral Produts, a corporation 
with a lot of exciting developments in the offing. Until next time, 
Thank you all. 

--Кігі E. Stockwell 
Past President 


News and Reviews 


by Mike Dunn, Co-Editor 

Almost every day | receive a letter begging for information on 
programs in our exchange library or sold by others which are helpful 
for Learning Disabled or Handicapped children or adults. These are 
from both parents and teachers. We have many educational programs 
and games, but | do not know which ones might be helpful. There are 
also commercial and “home-brew” devices which might be helpful. 
We want to devote the October issue to the Learning Disabled and 
Handicapped. Please send us your experiences, articles, circuit 
diagrams, reviews of our software and commercial software, etc. Any 
items you think might be helpful to others with these problems will be 
appreciated by all. ! will also ask Stan Ockers, Sydney Brown, Ruth 
Ellsworth, Dale Lutz and others if they can come up with some 
suitable programs for this very important special issue. 

At the last ACE meeting, we held elections for President, and 
Robert Browning is now our new leader. Bob has been very active in 
E.R.A.C.E., and will lead our group to new heights. Also seen at the 
meeting were demonstrations of the new Atari/Synapse programs, 
Syn-Calc and Syn-File+. Syn-Calc is a very easy to use, powerful 
spreadsheet and Syn-File-- is a database system replacing the 
popular File-Manager 800. Both are written in FORTH, have built in 
tutorials leading you through the various functions, have many built-in 
help features, etc. They look very nice, cost $99 each. | have not 
worked with them; the Demo was by a local computer store. We will 
review them extensively if we get a review copy; if not, maybe one of 
you will like to do so. Also seen at the meeting was the fabulous new 
MindSet computer!. Demonstrated was a demo version of a fantastic 
game from Synapse also called Viper!. Featuring 3-D graphics, 
extremely smooth scrolling, it had almost a motion-picture effect 
rather than a computer generated game; very impressive. Also a CAD- 
type drawing program by MindSet and Time Arts, Lumena, is a 
professional color graphics package costing $400. This turns the 
MindSet into a $50,000-type CAD computer. The demo pictures with 
the programs look like color slides — very beautiful! Local dealers are 
Computer Palace 503-683-5361 and ACE Computer 503-343-5191, and 
they are in stock. 

We received some more very nice books from Prentice-Hall, 
Englewood Cliffs, N.J. 07632. For general use, The Encyclopedia of 
Microcomputer Terminology, a sourcebook for business and 
professional people has more than 4000 terms defined and has 
exhaustive appendices. Written by Linda Gail Christie and John 
Crristie, this $10 book has everything. Appendices include a bar-code 
glossary, color codes for electronic components, logic functions and 
gates, music synsthesis glossary, videodisk technology and glossary, 
and more. À very nice reference book. The other is a beautiful book, 
invaluable to those interested, Visual Display Terminals: Usability 
issues and concerns edited by Bennett et al., this $28 hard cover book 
is a textbook for professionals designing computer display setups. It 
includes specific, proven techniques introducing VDT's, including the 
social and organizational problems, human factors, etc. Has much 
data supporting their recommendations, many charts, formulas, etc. 
Appears to be a definitive work for those in the field. 

In the last issue, Steve Berg sent in an article (“Give your old Atari а 
shot..." describing how he upgraded his Atari and drive with surplus 
boards from American TV Sales. Shortly after, | received an ad from 
Happy Computing (POB 1268, Morgan Hill, CA 95037) with, among 
other very interesting items, an Analog upgrade disk drive Kit. They 
supply the upgrade boards for a new powersupply and speed control 
board to vastly improve the operation of your drive. You can tell you 
need one if you do not have the analog board above the disk drive 
mechanism. For only $50, it includes very fine directions on how to 
make the changes, and the difference in the operation of the board is 
fantastic. They also have a “Нарру” enhancement for the Atari 1050 
drive adding true double-density. CDY Consulting (421 Hanbee, 
Richardson, TX 75080), the makers of OMNIMON!, now have a new 
16K Ominimon with many new features, as well as a 80 column 
upgrade giving you 80 columns on the screen. There is even a new 
version for the 600XL and 800XL due out soon. | have not seen these 
new products yet, but if they are as good as the old one, they should 
be fantastic. 

The more | use the new Letter Perfect Version 6 by ШК (see June 
issue for review), the more | am impressed. Their new DataPerfect is 
also a peach, with all the bugs removed and many new features — still 
under review. 

Remember, the next issue of ACE will be in September. Have a nice 
summer. 


BUMPAS REVIEWS 


TOP DOS (Eclipse Software, 1058 Marigold Court, Sunnyvale, CA 
94086, $50) is an enhanced Disk Operating System for the Atari. If 
you're familiar with Atari DOS 2.0, you will be able to use this one 
immediately as it presents a menu format which is very similar and 
contains the familiar commands. The documentation tells you TOP 
DOS occupies the same space in memory as Atari DOS, so all Atari 
software should be fully compatible. TOP DOS is not compatible with 
the very early Ataris which still use the Revision A OS ROM. TOP DOS 
will tell you upon booting when you have Rev. A. 

One of the first differences you will probably notice is the entire 
screen scrolls when you begin entering commands. Atari DOS only 
scrolls four lines at the bottom. For example, you may not have to 
keep calling up a disk directory to see the next file upon which you 
want to work. You may limit commands to one line as you enter them, 
keeping more of the history on the screen. 

Control of directory format is one of the more interesting powers of 
TOP DOS. Directories may be displayed in up to 6 columns. Two 
columns is the default. Four columns may be used in an 80-column 
display. Six columns may be printed out. Directories may be 
alphabetized on disks formatted in TOP DOS format. Unfortunately, 
the TOP DOS format prevents use of the disk by any program which 
uses Atari DOS. But TOP DOS can also format a disk in the Atari 
format, and TOP DOS can use disks formatted with Atari DOS. 

Other added commands permit the user to create command files 
which execute a series of operations (formatting, copying files, etc.) 
with one command. Bytes in memory may be examined and changed 
directly from the DOS menu. Deleted files may be restored with the 
Undelete command. 

The TOP DOS system disk contains extensive help files. The “2” 
key pressed after calling up any command will access a help file 
describing the function. Pressing “Т” after getting any error message 
will print out a short description of the error (saving the effort of having 
to look up the error). 

The command menu also displays additional information. Each 
active disk drive is listed, with the default drive indicated. Each drive 
shows single, double or quad density. The number of buffers available 
for open files is shown, as are MEMLO and МЕМТОР. Various other 
statuses which may be toggled on and off are shown: MEM.SAV, Auto- 
RS232, Verify Write, DOS Resident, and Bypass Cartridge. Control 
over each of these functions indicate a very powerful DOS. This review 
has insufficient space to describe them further. 

| am pleased to say the documentation for this DOS seems 
excellent. In a manual of more than 80 digest sized pages are 
complete descriptions of the use of all the functions. And examples of 
use are included to help make these descriptions clear. | am very 
impressed by the documentation. The only improvement | can suggest 
is an index. 

TOP DOS does not seem to adjust automatically to disks of 
different densities. The Indus drive | use switches density 
automatically when a disk is inserted. But to access the disk, you 
must reboot, or else call up the Status menu and toggle the status for 
that drive. We tested several programs using TOP DOS, on an XL as 
well as a regular 800. We encountered one problem on both machines 
when running Telengard by Avalon Hill. The text display disintegrates 
when using TOP DOS, and does not disintegrate with Atari DOS. This 
indicates some problem in handling graphics in some way. Perhaps 
the excellent programmers at Eclipse can find and correct this 
problem, which might extend to other programs. | recommend this 
DOS for advanced users, and those who are using double or quad 
density disk drives. 


Microprint 


Microprint (also from Microbits, ) is MPP's new printer interface. 
When you first see it you think it is a printer cable with a large plug at 
one end. Inside the large plug is housed all the electronics needed to 
make the interface work. 

| tried it on many types of printers: dot matrix, ink jet and daisy 
wheel. The only thing all of the printers had in common was they were 
all parrallel with centronics type plugs. 

If one only needs an interface to do one job and is not fancy, but 
does the job well and at a resonable price then | highly recommend 


this interface to them. 
— Larry Gold 


SYNCALC 


Well, ATARI really did something right! They are marketing the new 
worksheet program by Synapse. SynCalc ($100) does everything 
possible with Visicalc, and a whole lot more. Many of the features of 
Lotus 1-2-3 are incorporated into SynCalc. For instance, you can alter 
column widths on an individual column basis, rather than for the entire 
worksheet. You can also type descriptive labels without having to stop 
and jump the cursor as in Visicalc. Anyone who has had to cope with 
this Visicalc limitation will probably buy the program for this reason 
alone. 

Other features of SynCalc include many more built-in formulas, 
sorting capability, printing with or without column and row headings, 
and others too numerous to mention here. 

For those of you who hate to memorize command instructions, the 
program is completely menu driven. You can execute commands 
simply by moving the cursor. If you are an expert user, you can bypass 
the menu and use the commands directly (they are very similar to 
Visicalc and Lotus). 

SynCalc can also share data with SynFile, SynTrend and 
AtariWriter. | have not had a chance to work with this feature. 

You get all the above, plus one additional bonus if you have Visicalc 
files; yes, you can copy Visicalc files to SynCalc files, and do away 
with a lot of re-entering. The copied files will require some 
modification of formulas to make them run on SynCalc. 

The program comes with an excellent instruction manual which 
consists of three progressively more difficult tutorials. The first 
tutorial is short enough so you can have your first worksheet ready in 
minutes. | 

SynCalc is a powerful, user-friendly spreadsheet program which has 
many of the capabilities of Lotus 1-2-3. 

— Jim Landen 


7800 PROSYSTEM 


The 7800 PROSYSTEM is a new game maching from Atari ($150) 
which will run all 2600 games without adaptor, and has many new 
features. It has a proprietary “Maria” chip which permits more moving 
objects per scan line — up to 100 independently moving objects on 
the screen at one time. They advertize more realistic color and more 
programming flexibility than ever before on any videogame or home 
computer system. 

A keyboard will be available with 4K RAM, expandable to 20k. They 
plan word processing, creative learning, and personal development 
software for this system. Most XL line peripherals and accessories 
will also be compatible with the 7800. It comes with a serial I/O 
expansion port to allow it to be upgraded with future game 
technologies. 

Video game machines are still selling — at the right price. A friend 
of mine just bought two 2600s for about $25 (total!). But | don't know if 
people will pay a home-computer price for a video game machine 
which can (for extra cost) be made into a 20k computer. | haven't seen 
it yet, but if the graphics and action are really a great leap beyond what 
is available now, then the machine will probably be successful. When 
you start using this machine, let us all know what you think of it. 

— Jim Bumpas, Co-Editor 


MicroFiler 


MicroFiler (Microbits Peripheral Products, 225 W. Third St., Albany, 
Or.,97321, $50) is just what its name implies, a filer program or small 
data base. One of the things making this program differant from other 
programs of its type is it is on a cartridge, and because it is on a 
cartridge it will work with either a cassette recorder or disk drive. 

Here is a menu driven program allowing you to browse through files, 
change the fields to customize them to fit your needs, prints labels or 
lists. It allows you to sort or alphabetize files, does addition or 
subtraction and even averages numeric information. Permanent 
storage can be made to either disk or cassette. Alot from one ROM 
cartridge. 

The manual covers everything step by step so you learn how to use 
this program with a minimum of fuss and bother. For all those who 
only have a cassette recorder this is an ideal program for you as you 
only need use your cassette to store your data on, and a person with a 
400 and 16K can use this program the same as anyone else with larger 
systems. This program is for anyone who needs a small data base for 
lists, expense accounts, collections, recipes or anything you need for 
storing data. 

—Larry Gold 


Lights, Camera, ACTION! 


Recently | jumped aboard the ACTION! bandwagon and purchased 
the language. | haven't had much time to do any large program 
development with it, but already І have fallen in love with it. With the 
Programmer's Aid disk and the runtime package available, | can't think 
of anything to improve. This language is really where it's at — if you 
have grown out of BASIC, get ACTION!. 

To give you a brief sampling of ACTION!, І have submitted two 
simple programs. The first converts TinyText files to TextWizard/ 
AtariWriter format. It illustrates the use of the OPEN, PUT and GET 
routines in ACTION!. Note the smooth flow of the ACTION! code in 
this one. When typing it in, note that in PROC allout the things which 
look like ones are actually Ls. (Experienced ACTION! programmers 
will probably laugh at this effort of mine — when | wrote it | didn't 
know the shortcuts of the language, and it still runs fast anyway, so | 
didn't change the code). All the program does is take out the carriage 
returns Tiny Text puts in, and change the Tiny Text Control-S and 
Control-E to returns. The dots still have to be removed manually, and 
any format controls changed appropriately. 

The second program lists ACTION! source files to single sheets, 
and numbers the pages. ! used it to generate listings for inclusion in a 
hand-in school physics project — | couldn't find any other way to list 
the source files to single sheets. In fact, this program could be used to 
dump any pre-formatted text file to printer. 

In conclusion, ! plan to use ACTION! as my sole language from now 
on, except for very small 'throw away' programs where BASIC is 
better. But for anything very large, swing into ACTION!. 

— Dale Lutz 
Canada 


Double Bounce 


Double Bounce is a game for two players. The object for each is to 
bounce on top of a floating cloud and climb down the ladder on the 
left of the screen. Ten points are gained each time you do this. Choose 
some reasonable point goal before you start. 

Joysticks in ports 1 & 2 control trampolines whch bounce the 
players. Pushing up when contact is made causes the player to go 
higher — down decreases the height. You needn't push up or down to 
maintain a constant height. The fire button releases the player for the 
first bounce. Miss a trampoline and you fall in the quicksand below. 
You wiil then have to wait for the other player to suffer the same fate. 
When this happens, two new bouncers will appear on screen. 

The difficulty for each player can be selected at any time. Pushing 
'OPTION' changes the difficulty for the player on the left, while 
'"SELECT' changes that of the right hand player. Higher difficulty 
means the players move horizontally faster. The 'START' key will 
restart the game. Oh yes, beware of the big green bird! 

— Stan Ockers 


BULL ANTS 


In the Bull Ants game this month, you and your friend are ants and 
you have lived happily in your nest for a long time, but now the con- 
struction workers have moved into the neighborhood and are using ex- 
plosives to dig trenches for the foundations of a new shopping center. 
Another problem are the bull ants which have moved into your next 


because their home was destroyed. 


Use joysticks 1 and 2 to control the red and green ants. You must 
move your five eggs from the bottom of the nest to safety at the top of 
the screen. On the way up you must watch out for cave-ins and the bull 


ants. 


If you are hit by a cave-in, you will be sent to the top of the screen. If 
you are stung by a bull ant, you will be paralyzed and will have to wait 
until the next explosion to shock you out of it. 

If you were carrying an egg in either case, you will lose it and it will 
be represented by a black egg appearing at the top of the screen on 


your side. 


The winner is the one who gets the most eggs to the top safely. If 
both players get the same number, the winner will be the first to get 


them there. 


— Sydney Brown 





CASSETTE MENU 


(Reprint: June, 1984 Santa Maria/Lompoc ACE) 

Some months back | played around with the idea of a Cassette 
Operating System to pick up where | believe Atari left off. Options 
such as controlling the baud rate, increasing sector density, allowing 
direct copying from disk to cassette, the ability to specify which file to 
run were just some of the things the Atari 410/1010 program recorder 
is capable of when paired with the right software. After | got my disk 
drives, І really started thinking about how to develop a COS patterned 
loosely on DOS. When | found how difficult it is to put everything into 
page six of memory and ran into other numerous walls, | put it aside 
thinking і could try again later. 

While doing some of the functions mentioned earlier requires 
machine code, one function can be done in Basic as a utility. The Atari 
system can be configured to run a two-stage program which displays a 
menu of the programs on a cassette tape and allows a search of the 
tape to load and run a specified program. To many cassette owners 
this means the end of trying to position a tape properly to get a 
program to load after losing the program's place on the tape because 
of a faulty tape counter. 

This program is in two parts. It is based on the menu program | 
devised for my own use with disk-based programs. The original 
program displayed the disk menu and loads and runs a program based 
on which value is given through the keyboard. the first part of this 
program will display the menu of the programs you have on a cassette 
tape. This part allows you to easily update the menu itself and will 
always occupy the same amount of space on the tape. This way you 
will not have to re-record all the programs or worry about how close 
together you should put your programs on your tape. The second part 
of the program is the search utility which will seek out the program 
you indicate. It will then load and run the program without further help 
from the user. 

In order to allow this program to work, two conditions are 
necessary. First, the programs must be saved to cassette using SAVE 
“C:”. This allows the second condition to be met, the use of a string 
function based on a REM statement. The REM statement is compared 
to the input provided by the user in response to the menu program. If a 
match is made, the desired program is loaded in and executed. If no 
match occurs, the computer continues reading the tape until the 
desired program is located. 

Type in Listing 1 just as it appears, remembering to type the “А” 
through "Z" letters inside the menu as inverse characters. When you 
finish typing in the program, save it with SAVE “С:”, not a CSAVE! Do 
not advance the tape at this point. Type NEW to clear memory and 
type in Listing 2. Save with a SAVE “C:” again. The utility is now ready 
for use. 

To update the menu portion in the first part just issue a LOAD “С:” 
command, make the desired changes and save the menu display 
program back to tape with a SAVE “С:”. | suggest moving the tape 
manually until the leader/tape junction appears (usually a white 
square) and lining it up with the pad located in the center of the tape 
path housing to make sure you save it back to the same place on the 
tape. 

To allow the utility to seek out the program you want to use requires 
the use of a REM statement in a manner which is different from what 
you are probably used to. When you have typed in or loaded the 
program you want to use with the utility later, do the following: 

The first line of the program must be in the form: “1 REM 
(Нірпате)”. Type in: LIST “С:”,1,1 and press Return. The first line 
containing the REM string will be saved to the cassette recorder. It will 
serve as the program identifier. Now save the entire program with a 
SAVE “С:” command. This will allow the autorun feature already 
discussed. Update the menu portion as already mentioned. 

Now when you want to run the program just type in RUN “C:” after 
positioning the tape at the beginning. The menu will appear with the 
program names. Press Return when you are ready and type in the 
name of the program at the prompt. When the Atari has found your 
program, it will issue a number of beeps from the console speaker, 
load the program and run it for you. If the program you want is a binary 
file, the display will stop and display the instructions for you to load it. 
If you do nothing, the program will assume it is a normal program and 
continue on its merry way while you sit back and relax. 

Two last notes. You will notice a lack of beeping sounds while the 
program is doing its searching. This is done to give you some peace 
and quiet while it does its work. After all, who wants to listen to I/O 
noise for as long as it takes to load some programs when it's not really 
necessary? Finally, you do not need to leave a lot of tape between your 
programs, they can be placed end to end. Just note where you left off 
the last time you saved a program and save the next program just after 
that point. Now sit back and let your Atari do the work for you. 

— Jay Torres 


BULL ANT 


18 ? "&":SP-1:6G05UB 2888 

208 ST-STICK(8) :POKE 53278,8:01-01*5P:; 
IF 41)215 THEN Ai-i6 

281 IF GOTi-1 THEN 289 

282 POKE 53256,41:IF 51-14 AND 91768 TH 
EN LOCATE H1,U1-1,2:IF 7-52 THEM COLOR 
32:PLOT H1,U1:U1-U1-1:60TO 209 

28i IF 5113 AND U1(22 THEM LOCATE НІ, 
U1*1,2:IF 2-32 THEN COLOR 312:PLOT Hi,¥ 
1:9120141:6070 209 

285 IF 5111 AND Н128 THEM LOCATE Н1-1 
,U1,Z2:IF 1-32 THEM COLOR 32:PLOT Hi, Vi 
;Hi-Hi-1:60T0 289 

287 IF 517 AND Н1519 THEN LOCATE Hiti 
,Ui,Z:YF Z-32 THEN COLOR 32;PLOT HL, Vi 
:H1-H1*1:60TQ 289 

209 COLOR 247:PLOT Hi,U1:IF 91-2 OR ЧІ 
222 THEM GOSUB i88 

218 ST-S5TICK(1):482-A2-5P:IF 82518 THEN 
a2-298 

211 IF G0T2-1 THEN 21? 

212 POKE 53251,42:IF 51514 AND U2)8 TH 
EM LOCATE H2,U2-1,2:IF 2-32 THEN COLOR 
32:PLOT H2,U2:U2-U2-1:G0TO 219 

213 IF 5113 AND U2(22 THEN LOCATE NZ, 
U2*1,2:IF 7-52 THEN COLOR 32:PLOT H2,V 

2:92-9241:60Т70 219 

215 IF ST-11 AMD 8228 THEM LOCATE Н2-і 
,UZ,Z:IF Z-32 THEN COLOR 312:PLOT H2,U2 
:H2zH2-1:60T0 219 | 

217 IF ST-7 AND Н2<19 THEN LOCATE Н2+1 
,U2,Z2:YF 2-32 THEM COLOR IZiPLOT H2,U2 
:H2-H2*1:G60T0 219 

219 COLOR 216:PLOT H2,U2:IF 92-7 OR 02 
-22 THEN 60508 118 

248 йісй145Р:ІҒ 0122715 THEM 41-10 

242 A2-A2-5P:IF 42518 THEM 42-288 

244 POKE 53258,01:POKE 51251,42 

258 IF PEEK(S3254) O8 OR РЕЕК (53255) <) 
8 THEN GOSUB 588 

276 IF EG1-5 AND EG2-5 THEN 688 

278 IF PEEK(53272)-6 THEN 699 

279 IF PEEK(53273)-5 THEN GOSUB 18888: 

POSITION 9,0:? 106;"5'';5P; 

288 RN-RN*1:IF RN(i68 THEN 288 

281 SOUND @,49,8,15:FOR И-1 TO Zi: POKE 
DL,i128:FOR Hii TO 2:NEXT HH:POKE DL, 

248;:FO0R Wi TO 2:MEXT НЫ: NEXT M 

282 FOR M-8 TO S;COLOR 32:PLOT HKY(B8,M) 

HY CL, WKY CO, МУ INT C28«RND (8) ) ; LOCATE 
HYCO, D ,XYCI, ID ,Z 

285 SOUND 8,42,8,15-MXI:FOR МИ-і TO 10 

:ИЕХТ WH: COLOR 95:Р10Т XY(CB8,M) , XYC1, M) 

"ТЕ ZO32 THEN GOSUB 486 

285 NEXT W:GÜT1-8:60T2-8:50UND 0,255,0 


by Sydney Brown 


,4 

299 POKE 77,9:RN-INT(CISBXRND (822 :6070 
288 

i88 IF Ei1-i THEN 328 

382 LOCATE H1,U1*1,Z:IF 20122 OR Н1)1 
4 THEN RETURM 

285 GOSUB I50:E1-1:N1-N1*1:COLOR 32:PL 
OT H1,U1*1:IF Ni-5 AND ҒҒ-8 THEN ҒҒ-1 
389 RETURN 

318 IF E2-1 THEN 3328 

112 LOCATE H2,U2*1,Z2:IF 20122 OR H241 
4 THEM RETURN 

315 GOSUB 368:E2-1:N2-8N211:COLOR 32:PL 
OT H2,U2*ti:IF М2-5 AND FF-8 THEN FF-2 
319 RETURN 

326 IF 9122 THEM RETURN 

325 60506 IS8:COLOR 288:PLOT N1-1,8:F1 
-8:51-51*1:EG1-EGIt1;IF 51-8 THEN РОР 
:6070 688 

323 RETURN 

338 IF U2)2 THEN RETURN 

335 605НВ 368:COLOR 218:PLOT 28-N2,8:E 
2-0:5225241:Е62-Е6241:ІҒ 552-5 THEM РО 
P :GOTO 688 

339 RETURN 

358 FOR M-15 TO 8 STEP -1:50UND 8,14,1 
8,H:NEXT M:50UND 8,255,8,4: RETURN 

368 FOR H-15 TO 8 STEP -1:50UND 8,18,1 
8,M:NEXT N:SOUND 8,255,8,4: RETURN 

488 FOR М2-258 TO 5 STEP -7;:50HND 8,7 
2,14:WNEXT WZ:50UND 8,255,8,6:IF 7-216 
THEN 458 

485 Hi-92:U1-2:COLOR 247:PLOT Н1,91 

418 IF Ei-8 THEM RETURN 

415 E1-8;COLOR 122;PLOT Ni-1,8:EGi-EGI 

ti 

449 RETURN 

458 H2-18:U2-2:COLOR 216:PLOT H2,U2 
468 IF E2-8 THEN RETURN 

455 E2-8:CO0LOR 122:PLOT 28-N2,G0:EG2-EG 

2+1 

499 RETURN 

508 IF (PEEK(53254)-4 OR РЕЕК (53255) -4 

) AND &OT2-8 THEN 60506 468:60T2-1:6G0T 

0 518 

582 IF (PEEK(53254)-8 OR РЕЕК(522853-8 

) AND GOTi-8 THEM GOSUB 418:60T1-1:60T 

0 518 

584 IF (РҒЕК(53254)3-12 OR PEEK(531255)- 

12) AND (60Т71-8 OR 6072-08) THEN GOSUB 

410:60506 468:60T11-1:60T2-1:60T0 518 

$8? 6070 549 

518 FOR М-38 TO 8 STEP -1:50UND 8,7,6, 

Н/2:ИЕХТ M:SOUND 8,255,8,4 

949 POKE 53278,8:RETURN 
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688 IF 51-52 THEN WIN-FF:GOT@ 656 
618 ТЕ 51)52 THEN MIN-1 


620 IF 52251 THEN МІН-2 


658 SOUND 8,0,0,0:IF MIN-1 THEN 698 


668 POSITION 8,21:? H6;"^^^^^^the^^end 


AAAAAAU: FÜR М-1 TO 180:NEXT M:IF PEEK 
(52279)-6 THEN 699 

665 POSITION @, 23:7 #6; ^AAAAAAAAAAAAAA 
ABER ;:FOR Wi TO 180:МЕКТ М:ІҒ PEEK 
(52279)-6 THEN 699 

668 6070 668 

698 POSITION 08,22:7 H6;"^^^^^^the^^end 
AAAAAAU: FOR Wi ТО 188:МЕКТ W:IF PEEK 
(531273)-6 THEN 699 

695 POSITION 8,22:7 Н; "ETT J^^^^^^^^^ 
ААААААН FOR Исі TO і88:МЕКТ H:IF PEEK 
(53273)-6 THEN 699 

598 GOTO 698 

599 60508 3191:G0T1-8:G0TZ2-8:G0TO 288 
1888 рата 12,2,101,254,252,684,82,137,4 
8,54,156,1277,53,42,74,145,42,42,62,62, 
57,78,28,8,12,28,62,52,58,17,0,8 

1818 DATA 9,11,75,187,118,184,56,8,1,3 
,7,15,29,63,95,255,128,192,160 

1828 DATA 248,248,252,222,255,251,255, 
191,255,253,255,221,255,8,0,8,0,52,176 
,191,255 

2888 DIM P$(46),C$ (58) , XY (1,53 : C5-" €] 
AA ot vd et vm o OZ ег И У Фе Do 
- ее 

2882 PS-"H WHOS TEENY BE ЕКЕНІ Й СОТ 
ср лье НУАз ":РОАЛОВ CPS): PH-INT (P/ 
256) :PL=(P-PHEZ56) : CCADR(CCS) 

2885 CH-INT(C/256):CL- CC-CHX256) :P2 (21 
) -CHR$ COL) : P$ (22) -CHRS (CH) :КН-ТИТ CCP +4 
13/256) :KL- (Pt 41) - CKHX256) 

2818 PSCL6)-CHR5 (KL) :Р5 C17) -CHRS СКН) :Р 
$(31)-CHR5 CHL) : PS CI4) СНАХ (КН) :РОКЕ 51 
2,PL:POKE S13,PH 

2188 FOR H-8 TO 5:КУЄСа,И3-8:НЕКТ Н: ХҮС 
1,8326:XYC1,12-8:XY(1,2)1-12:4YC1, 32-14 
НУ (1,427218: XY C1, 52-28 

2288 СВ-РҒЕК(1062-8:РӨКЕ 186,CB:POKE 5 
4279,CB:GRAPHICS 17:POKE 712,134:A-PEE 
K(186)X256:POKE 788,38 

i888 POSITION 8,8:? #6; "ААА 


ді? БІЧНА А А АА 


A A À 
A? Hb MAA 


АЖА А АА АН 


3881 ? НБ; "л 


АА А А 


АА AA ANS Р 

Att: 2. HO; НААААА ЛАЛА АЛАА 
AAAA 

1882 ? #6:7 Hb:? Hb;" 


AAI} 115 ;" ^ А АА 


AA А А AAA 


А AMI? H6; А 
А AAA А Ай 


i883 7? 116; " AAAAAA А АЛА Ан: 2 116; " ^ 


BULL ANT con't. 


АА AA An 5" А А А А 


A":POKE 711,92:РОКЕ 709,204 
1885 PIKE 756,СВ:РОЗІТІОМ 4,21:? Н6;"5 
ETTING ШР" 
1181 FOR B-8 TO 511:IF 82429 THER READ 
D:POKE 4t8,D:NEXT B:G0TO 3118 
3186 POKE A+B, PEEK (57144*B) : NEXT B 
1118 POKE 756,CB 
1158 DL-PEEK (568) +256%PEEK (561) : POKE р 
L,248:FÜ0R M-DL*7 TO pLt28 STEP З:РОКЕ 
М,і1354:МЕХТ W:ZB-CBX256 
1155 FOR Мо53248 TO 55255:РОКЕ W,8: МЕХ 
T W:FÜR М-7841536 TO Z8:2848:PÜ0KE 4,8: 
МЕКТ N:POKE 53277,3:РФКЕ 559,62 
1168 POKE 786,12:PO0KE 787,12:Р0КЕ 5325 
8,8: PüKE 53259,8 
1162 RESTORE 1888:FO0R H-1 TO 8:READ D: 
POKE ZB*1529*MH,D: POKE 7Bt*1547*W,D: NEXT 
н 
3161 FOR Wei TO &:READ 0: РОКЕ 7ЕҒ18554 
H, 0: POKE ZB*1951*M,D: NEXT М 
1178 POSITION 1,28:7 нб; "select---5PEE 
о = ":5P:FOR Wei TO IS:NEXT М 
2171 POSITION 1,21:? #6; "ПЕП -START 
GAME" 
1175 IF РЕЕК(532792-5 THEN G05UB 18889 
:G0T0 3178 
2189 IF РЕЕК {512797 O 6 THEN 3175 
1191 POSITION 8,8:? Нб; "А \A Al 
ТІП ^^ 44] РТА ^ 
АНЯ А ААА АА АЛАА AAAAAAAI 


3197 FOR KES ТО 19 STEP 2:POSITION 8,H 
:7 36; AAAAAAAAAAAAAAAAAAAAT COLOR 32: 
PLOT INT(RND (0) X18) , H 

1192 PLOT INT(RMD(O)X18) 18, HN: NEXT И:Р 
QSITION 0,21:7 WG; ^^^AAAAAA АААААЛАА 
AU:2 Hb;"ZZZIZI^^ ace  ^^ZZIII"; 

1195 POKE 54286,192:H1-0:U1-22:H2-13;UV 
2222:C0LOR 247:PLOT H1,UI1:CULOR 215:PL 
OT H2,U2:41-8:42-288:EG1-8:E62-8 

1139 RN-INT(158XRND(03):E1-0:E2-8:N1-8 
:N2-8:501ND 8,255,8,4:FF-8:51-8:52-8:R 
ETURN 

4988 RETURN 

18008 SP-SP*i1:IF 5Р24 THEN 5Р-1 

18881 IF PEEK(53272)]-7 THEM RETURN 
18802 GOTO 18881 


LISTER by Greg Menke 


: Знає LISTER ЗНАЄ 
; by Dale Lutz 


; This program will list an ACTION! 
; source file to single Sheets 
; ог an Epson Printer 


BYTE a,line,page,b 


BYTE ARRAY str (248), 
title (483 


PROC inputname t} 
Graphics (8) 
PrinteE("Please enter the filename of the "3 
PrintEC"ACTION! source file Cin the боги ") 
PrintEC'D: filenake,ext)") 
printti” ") 
Printi" e) 
InputS(str) 
PrintE(C" 9 
PrintE (“Insert disk, press ПЗ)" 
a-InputB 0 
Closet2) 
Gpent2,str,4,8) 
RETURN 


PROC wait for sheet) 
PrintE(C" ") 
PrintE("Insert SHEET, press Ша 
Printe" --)ну 
a-InputB 2 
RETURN 


PROC margini 
FOR b-1 to 8 
ро 
русь (1,32) 
00 
RETURN 


PROC center (BYTE ARRAY cen) 
page--*1 
margini 
Putt (1,27) 
Printb(1,"-a'") ;set underline on 
Printb(Ci,cen) 
Printb(1," Page "3 
PrintBd (1,page) 
PutP (1,27) 
Printb(1,"-") ;set underline off 
Putb (1,82 
PrintbE(1," "7 
ргіпірЕ Сі," "З 
RETURN 


PROC print sheet( 
center (title) 
FOR a-1 TO 51 

0 

Іприї50 (2,51г7 
margin) 
PrintBEti,str3 
ob 

RETURK 


PROC inputtitied 
Print£("Please enter the title to һе") 
PrintEC'printed on the top of each page "? 
PrintE(C" "3 
Printi" x^ i 
Inputs (titie? 

RETURN 


PROC maint) 
en 
page-@ 
inputname (2 
inputtitie О 
PrintE(tC" ") 
Print£("Ready printer, press QANGLI” 
printi" --)м) 
a-Input&(O 
PrintE(C" "2 
С1о5е (17 
üpenti,"P:",8,8) 
риє (1,27) 
Printb(1,"8") ;shut off paper out 
WHILE EOF €23-6 
ро 
wait for sheet(ü 
print sheet З 
00 
PrintE¢™ “9 
Printt'Press ПЗ) for another listing.'"? 
a-InputB О 
PrintEC" ") 
OÈ 
RETURN 


NO MEETING THIS MONTH 


;This program converts a TingText 
‘file to Text Wizard format 


:some global variables 
BYTE а,Ь,с 
BYTE ARRAY str {1363 


CARD men,count, iI 


PROC lineint 
Inputs) Ci,str) 
RETURN 


PROC outi) 
FOR azi to strig) 
LIU 
Poke (memtcount, str Са?) 
count--ti 
üp 
RETURN 


PROC alleut (2 
men-$4008 
FOR 1-мем to memtcount 
pa 
a-Peek 1) 
Putb (2, а? 
Of 
RETURN 


PROC inputnane О 
PrintEC"Please enter the filename of the "3 
Print£("original TinyText file Cin the form "3 
PrintEC"Db:filename,ext?' 
PrintE(C" '") 
Print" eei 
Inputststr) 
PrintEc’ ") 
PrintE(C"Insert ИШ ШИЯ disk, press ДӘП”) 
a=Input8 0 
Close ti} 
Openti,str,4,83 
RETURN 


PROC outputname ПО 
PrintE(C"Please enter the filenaMe under which") 
PrintE(C"to save the converted file (it will "З 
PrintE("be іп Text Wizard format).' 
PrintE(C" "З 
Printi" nd i 
InputsStstr) 
PrintE(C" '') 
PrintEC"Insert disk, press ПАШ 


; DOUBLE BOUNCE 
; Stan ückers 6-84 
; Written in Action (с) 1982 acs 
; ӨСЕ Newsletter, 2662 Vine Maple Dr. 
: Eugene, OR 37485 July 84 517 year 
; 
MODGLE 
BYTE accntB,accelB,rtliN,ItliM,toplin, 
accnti,acceli,hposim, j,k,audfi-50288, 
botlim,PMpPage,vcount-S2P48D,hdlyé, difé, 
hsIo8,hposünM,but,tfig,hdiut,difi, 
мӛрі:50888,мірі-50809,н2р1-50808й, flip, 
Mipl-$Db88B,hitclr-$D81E,hitflg8,hsiol, 
p2p1-5D88E,pIpl-$D8GF,stkü,stki,flip, 
status6-[8J,statusi-[81,scntB,scnti, 
hpospa-$P888,hpospi-$D881,hposp2-$D882 
hpospi-$DB883,hposu8-$D884,hposB,hposi, 
hposmi-$0885,hposw2-$D885,hpos2,hposi, 
hposui-$D887,hitflgi,hitflg2,c1k-28, 
audf2-$D0282,af198-[81,af191- [01 , auf8, 
audci-$D281,audc2-9D281,aufi,auc8, 
consol-$b8iF,auci,flipi,ficnt8,ficnti, 
уро52 
INT vdir®, росе, delv@,hdiré@, delhé, 
vdiri,vposi,delvi,hdiri, delhi, birdir, 
vdirg 
CARD source,dest,pmbase,cnt,score8, 
scorel 
BYTE ARRAY Manbou-[8 28 42 28 8 28 42 
8 28 28 541,walki-I24 28 25 67 88 
152 24 28 36 36 54l,carry-[12 31 125 
235 138 136 8 8 8 8 8l,falling-[8 28 
42 28 71 67 8 28 54 65 61,мап8 (11), 
tramp-($F@ 5Ғ0 SFG 8 B 5ӨҒ 5eF SOF], 
birdi-(@ 196 187 68 122 16 48 81, 
сісіі4сі16 56 188 214 191 126 681, 
сіінБісіВ 28 62 28 72 62 9 28 28 52 
51,climb2-I[8& 26 62 28 9 62 72 28 28 
22 481,walk2-[24 28 26 68 88 24 24 
128 72 72 i2l,bird2-[8 35 214 68 94 
8 28 &1,nanit11) 


PROC Setdif@O ; difficulty piyr 8 
difü--*i IF 41Ғ824 THEM difü-i FI 
hdluü-5-dif8 Poke(656,2) Poket657,2) 
Print("DIF-") Printé di f8) 

RETURN 


PROC SetdifiQ ; difficulty plyr i 
difi--*i IF difí-4 THEM difi-i FI 
hdigi-5-difi Poke (656,2) Poke (657,33) 
Printc(™BIF=") PrintB(dif1) 

RETURN 


PROC Begin8() ; restart plur в 


STAN OCKERS 


DOUBLE BOUNCE 


vpos@-188 hdir@-@ dele8-z8 Һро58-58 
delhü-i vdir8-1 accnt8-i hitcir-@ 
hitflg8-8 scnt8-2 status8-8 ficnta8-? 
SetBlockipmbaseti824,255,8) 
RETURN 


PROC ВедіпіО ; restart plur 1 
vposi-i75 hdiri-@ delvi-8 hposi-58 
delhi-i vdiri-i accnti-i hitclr-8 
hitflgi-8 scnti-? statusi-@ ficnti-3 
SetBlocktpMbaseti288,256,8) 

RETURN 


PROC Init() ; restart everything 
acceló-i8 rtlim-285 1111м-45 
toplim-S botlim-285 Ведіпе {) 
acceli-i18 hposüsci28 Beginit) 
hpos8-58 vdirü-i hdir8-8 delv8-8 
hitflg8-8 hitflgi=@ score8-8 scoreí-8 
hpos2-175 hposi-i75 hposim-ió68 
difü-8 SetdifB() difi-8 Setdift( 
flipücaB flipizB birdir-i vposi-i88 
vdiri-i 

RETURN 


PROC Pminit{} ; Player Missiles 
pmbase—pmpagek#256 
Роке(54279,рираче) Роке (559,62) 
роке (53277,5) Роке (625,17) 
3еіВіоскь(риьасе4958,1288,8) vposi-i608 
dest-pmbaset364 source-tramp 
MoveBlock(dest,source,83 Роке С711, 321) 
dest-pmbaseti629 source-c loud 
MeveBlock (dest, source, 73 
роке (784,58) Poke(5P88C,SFF) 
Poke (785,46) Poke (766,13) 
Роке (50004,1) Poket5D88B, 1) 
Poke (787,122) 

RETURN 


PROC Parab@i3 ; bounce ріуг 8 
vposü--tdelu8Xedir8 audfi-i188tvpos8/2 
YF vpos8 MOD 4-8 THEM audci---i 

IF audci($A8 THEN audci-$88 FI FI 
IF vpos@<toplim THEN vposa-toplim FI 
IF vposü)botlim THEN vposaü-botlinm 

Status@-5 FI 
accnt8---i 
IF accnt@-@ THEN accntü-cacceig 
IF vdir8(8 THEM delv8---1 
IF delv8(8 THEN delvé-8 vdir8-i 
hitclr-8 hitflg8-8 FI 

ELSE 4с198--41 FI FI 

hslo8---1 IF hslo@-@ THEM hslo8-hdly8 
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hposaü--tdelh8Khdire 
IF hposübrtlim THEN hpos8ü-rtlin 
hdirü--1i FI 
IF hpos@<itlim THEM hpos8-Itlim 
hdir@-i FI FI 
IF hitfigé-8 THEN 
IF (m8pi&i)-1 THEM hdir8-i 
hitflg8-1 vdir8--1 FI 
IF (Mipl&i)-1 THEN hdir8--1 
hitflg8-1 vdir8--1 FI 
If hitfig8-1 THEN audci-$aF 
IF (stk8&i)-8 AND delv@<6 THEN 
delv8--*1 FI 
IF (stka&z)-8 AND delv@>i THEN 
delv8---i1 FI FI FI 
If (р?рібі)-і THEN status8-i 
scoreü--ti8 Positionti,i) 
PrintCdt6,score@) 
ур058-75 hpos8-hpos2t65 FI 
IF (p3pl&1)-1 THEN statuse-? 
hpos8-hpos3tS5 vposa-uposi FI 
RETURS 


PROC Parabit} |; bounce player 1 
vposi--tdelviXudiri audf2-188tuposí1/2 
IF vposi MOD 4-8 THEN audc2---i 

IF audc2<5ae@ THEN audcz-$á8 FI FI 
If vposi<toplim THEM vposi-toplihM FI 
IF vposij)botlim THEN vposi=botlin 

statusi-5 FI 
accnti-z--i 
YF attnti-8 THEM accnti-accelí 

IF wvdiri(8 THEN delvi--- 

IF deivi(B8 THEN delvi-@ vdiri-i 
hitcir-@ hitflgi-8 FI 

ELSE delvi--ti FI FI 
hsiei---1 IF hsioi-8 THEN hsloi-hdiyi 

hpesi--tdelh8*hdiri 

IF hposi?rtliM THEN hposi-rtlim 

hdiri--1 FI 

ТЕ hposi(Itlim THEM hposi-litlim 

hdiri-i FI FI 

IF hitflgi-8 THEN 
IF (m2p1&2)-2 THEN hdiri-i 
hitflgi-i vdiri--i FI 
IF (MIpl&2)-2 THEN hdiri--i 
hitfigi-i1 vdiri--1 FI 
IF hitflgi-i THEM audc2-$AF 
IF (stki&i)-8 AND delvi<6 THEN 

delvi--*i FI 

IF (stki&2)-8 AND delvidi THEN 

delvi--z-i FI FI FI 

IF (p2p1&2)-2 THEN statusi-3 

scorei--*i8 Роѕії10п (14,1) 

Printed (6,scorei} 


чро5і-75 hposi-hpos2t*65 FI 
IF (p3p1&2)-2 THEN statusi-9 
hposi-hpositS5  vposi-uposi FI 
RETURN 


PROC NoteB(BYTE pitch,ctri) 
audfi-pitch audci-ctrl аҒ148-1 
aufü-pitch auc@-ctri 

RETURN 


PROC Wotet(BYTE pitch,ctrià 
audf2=pitch audc2-ctrl аҒ14ігі 
aufi-pitch амсіссігі 

RETURN 


PROC 5іпкеО ; quicksand for 8 
IF scnta?8 THEM 
NoteBtiB88ti8K(i8-scnt8) ,SAC) 
IF Rand(i83-8 THEN scnt8---1i 
FOR і20 to (i18-scnt8?) 
50 wan8tj;j-B OB k-@ 
FOR j-ti8-scnt8? TO 18 
М) man@{jij-manboutk) k--*i 00 FI 
ELSE statusB-8 FI 
RETURN 


PROC Sinki ; quicksand for і 

IF scntid® THEN 

Noteit75ti8K(18-scnti),$AC3 

IF Rand(18)-8 THEN scnti---i 

FOR j-8 to ti8-scnti) 

00 manitj)-8 00 k-e 

FOR j-(i18-scnti) TO 18 

00 ManiCi)-mManbou(k) k--*i 00 FI 
ELSE statusi-8 audc2-$88 FI 
RETURN 


PROC Fight8() ; bird catches 8 
IF Randt5)-8 THEM ficnt8ü---i 
IF ficnt@ MOD 2-8 THEN source-birdi 


ELSE seurce-bird2 FI byt-t6tRand (36) 
dest-pmbaseti792*uposI Noted (byt, $20) 


MoveBlock (dest, source, G) 
IF ficntüca8 THEM statusa-4 


FOR j=@ to 18 DO ManB(jp-carryC;) 0D 


FI FI 
RETURN 


PROC Fightit} ; bird catches 1 
IF Rand(52)-8 THEN ficnti---i 
IF ficnti MOD 2-8 THEN source-birdi 


ELSE source-birdZ FI byt-3etRand (50) 
dest-pwbaseti792tvposI Notei (byt,$2C) 


Hover. "^Cp,63 
IF ficnti-8 THEM statusi-4 


FOR ;-8 to 18 DO mManitj)-carrytjl OP 
FI FI 
RETURN 


PROC Bounced)? ; Main routine 


byt-Peek(186) pMpage-byt-8 Рөке(1686,Бу1-6) 


ро 
Graphics(13 Роке (710,244) Poke(712,158? 
роке (752,1) Poke (6565,1) Роке (657,1) 
Poke (788, 383 
FOR j-8 TO 37 ро Putt(222) 0р 
FOR j-3i TO 19 BO Positionti, 32 
Ри (6,184) 00 
PhinitO Init) 
00 
hposp@-hpos@ hpospi-hposi 
hpospZ-hpos2 hpospi-hpos:! 
ро UNTIL vcount-128 08 
SetBlock tpubase*t1824*vpos8,11,83 
SetBlockipmbaseti288tuposi,11,8) 
; Status 8 - walk player 
IF status6-8 AND Rand(32-8 THEN 
hpos@--ti1 IF flip8-8 THEN 
Hote8(128,94C) FOR ;-1 TO ið BO 
мапе (3) =маїкі 5) 0D flipü-i ELSE 
Note8(158,54C) FOR ;-8 TO 18 
DO man8Cj)-walk2C(;3 00 flip@-@ FI 
IF hpos8-128 THEM 
FOR j-8 Та 18 00 мапёќ j)-manboul 3} 
00 status8-i FI FI 
IF statusi-8 AND Rand(2)-8 THEN 
hposi--*i IF flipi-8 THEN 
Moteit95,S9aC) FOR і-і TO 18 00 
manitj)-walki1C;) 8D flipi-i ELSE 
Noteiíi25,$0C) FOR j-8 TO ið 
DO мапі j}-walk2(j} 0) flipi-8 FI 
IF hposi-i68 THEN 
FOR j;-8 TO 18 DO maní(;)-Manboutj; 
00 statusi-i FI FI 
; status 1 = wait to ium 
IF statusü-i ан) Strig(@}-@ THEN 
518105022 FI 
IF statusi-i AND 5trig(i)-8 THEM 
Statusi=2 FI 
; status 2 - bounce 
IF status8-2 THEM Parab8(3 FI 
IF statusi-2 THEN Parabit) FI 
; status 3 - cloud 
IF status@-3 THEN hpos8ü-hpos2 
IF hpos8ü-56 THEN status@-6 FI FI 
IF statusí-3 THEN hposi-hpos2t5 
IF hposi-56 THEN statusi-6 FI FI 
; Status 4 = bird carry 
IF status@-4 THEN hposü-hposith 
vpos@-yposit§ 


IF hposá-iI8 THEN FOR j-8 ТО 18 
00 man8ti-fallingt;) 0D 
statusü-7 audci-Sac FI FI 
IF statusi-4 THEN hposi-hpos3i 
vposi-vposit5 
IF hposi-i1i8 THEN FOR j-@ TO 18 
BO manitji-fallingf р 00 
statusi-7 әшіс?-5йС FI FI 
; Status 5 - quicksand 
IF status@-5 THEN 5ink8C0) FI 
IF statusi-5 THEN Sinkid) FI 
: status 6 - climb down ladder 
IF status8-6 THEN vposa-c-*i 
IF с1іКк216 THEN cik-8 IF fliip8-8 
THEM Мо%г8(188,540) FOR ісі TO 18 
pO мапе с 5) =с1:м51 6) 00 flip8-i 
ELSE Моїев (50,520) FOR 1-6 TO 18 DO 
man8Cj)-climbztij) 00 rlipü-a8 FI FI 
IF vpos@-i88 THEN 
Beging O status8-8 Fi FI 
IF statusi-6 THER vposi--ti 
If cik)ið THEN cik-8 IF flipi-8 
THEN Motei(95,$AC} FOR j-1 TO 18 
00 manigji-climbitj) OD flipi-i 
ELSE Notei1(18,94C) FOR j-@ TO 18 00 
мапі (і2-сіїмь? (ії) 00 flipi-@ FI FI 
IF vposi-175 THEN 
Beginit) statusi-@ FI FI 
; status 7 = fall 
IF status8-7 THEN vpos8--*1 
audfi-uposa 
IF vpos@-botlim THEN statusa-5 FI FI 
IF statusí-7 THEN vposi--*i 
audfz-vposi 
IF vposi-botlim THEN statusi-5 FI ЕХ 
: status 9 = caught by bird 
If statusa-9 THEM fightB(O FI 
ТЕ statusi-9 THEN fightiQ FI 
source-man8 dest-pnmbaseti824tuposÜ 
HoyeBlocktdest,source,113 
source-Mani dest-pNbaseti288*upesi 
Moveblock{dest, source, 11) 
StkO@-S5tick(@) stki-Stick СІ) 
IF (Stk8&4)-8 AND Һро58М21713и 
THEN hpos@m---i FI 
IF (Stk8&8)-8 AND hposümírtlinm 
THEN hposüm--ti FI 
IF (Stki&4)-8 GND hposim?Itl:m 
THEN hposiM---1 FI 
IF (5Stki&8)-8 AND hposimirtlin 
THEN hposim--*i FI 
hposm@-hpos@m-4 hposm?2-hposim-4 
hposmi-hpos8wt4 hposMi-hposimwt4 
IF Реек (20) MOD I-8 THEN hpos2---i FI 
IF status@<9 AND statusií93 THEN 


vposi--tudiri 
IF vposi?155 THEN удігіс--і FI 
IF vposiíi8S5 THEN udiri-i FI 
IF birdir-i THEN source-birdi ELSE 
source=bird?2 FI 
dest-pMbaseti7922tupos3 
HoveBlock (dest,source,8) 
hposi--tbirdir FI 
IF Rand(188)-8 THEN birdir-1 FI 
IF Rand(i8B83-8 THEM birdir--i FI 
; Status 8 с dead 
IF statusi-8 AND status8-8 THEN 
Begin8() Ведіпі О FI 
IF aflg8-i THEN auc8---1 audci-auc8 
IF (auc8á$8F)-8 THEN afig8-8 FI FI 
IF aflgí-1 THEN auci---i audcZ-auci 
IF tauciáS8F)-8 THEM aflgi-@ FI FI 
IF consol-3 THER Setdi fea 
PO UNTIL consolO:z 0D FI 
IF соп50125 THEM SetdifiQ 
DO HNTIL consol1O5 00 FI 
UNTIL censol1-6 
00 Of 
RETURN 


a-InputBO 

Closet2) 

0pent2,5tr,8,8) 
RETURN 


;codecenvert changes Tingtext end of tine 
;Characters to RETURNS 


PROC содфесопчегі 0 
FOR a-1 to 51г (0) 
p 
IF str(al-19 OR stría)-5 THEN stría)-155 
FI 
0b 
RETURN 


PROC converter OQ 
CARD num, loop 
0 
соипіса 
men-$4088 
Graphicst8) 
PrintEC'TinyText to TextHizard File Converter") 
Printt(' б) 
Printe t" 
Printer" 
PrintEC' 
Printee 8) 
inputnaMe О 
num-InputCb (1) 
FOR loop-i TO numiti 
po 
1іпеіп (7 
codeconvert(O 
out O 


Written by Dale Lutz") 
аҙ 
In ACTION!') 


00 


RETURN 


0b 
outputnane €) 
allout(O 
Close (1) 
Close(2) 
Printe" "у 
PrintE("Conversion Complete!'') 
PrintE(" '') 
PrintEC"Hit GRE) to do another conversion") 
a-InputB(O 


; MERE LISTER знє 
> by Dale Lutz 


18 REM ЕРИМ WITH ART PICTURE LOADERS 
жн 

15 REM XXXREU.12/83 FOR Ғ.й.С.5. WEMSL 
ETTER 

28 REM ЗВУ HARRY PERKINS iit 

25 5Е.7,8,8:РВІНТ"К":605.29888 

38 PRINT"ENTER PICTURE FILE TO [OAD'":T 
NPUT PICS 

55 605.29100 

48 IF РЕЕК(764) 5228 THEN 6.48 

58 605.223408 

58 5E.2,8,8 

78 6.28 

29888 REM --INT FOR A РИМ WITH ART-- 
23818 МК-7:РІМ CIOS (MK) 

23818 FOR Ісі TO MX:READ J:CIOS CI)-CHR 
$CJ) : NEXT I 

29820 D.184,162,16,178,76,86,228 

29822 MX-15:DIM PICS CHK) 

23825 DIM РІТОМ5 (МУ) 

23838 FOR I-1 TO MK:READ J:bLIONSCID-C 
HRS CJ) : NEXT I 

29835 D.184,162,132,141,232,5,1062,6,16 
8,221 

29848 р.169,5,76,92,228 

29845 MK-18:DIM DLIOFFSCHM) 

29058 FOR Ісі TO MK:READ J: DLIOFFS (I= 
CHRS$ CJ) : EMT I 

23855 D.104,169,64,141,232,6,141,14,21 
2,162 

79068 D.228,168,95,162,6,76,22,228 
29878 КЕН INIT. VARIABLES AND STEAL 50 
ME MEMORY FROM BASIC 

29075 REM 

23888 IOCB-848:0LDSCL-PEEK (566) : OLDSCH 
=PEEK (561) 

29085 PICBAS-(CINT(CPEEK (7422/16) -2) B16 
23838 PLIBAS-PICBAS-9:POKE 741,8:POKE 
742, 5LIBAS 

296895 RET. 

23108 REM -- LOAD AND SHOW A FUN WITH 
ART PICTURE-- 

23185 REM ROUTINE RETURNS й--1 IF SOME 
THING 15 WRONG WITH FILE 
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188 REM звевевененеевеееененененавеннє 


118 REM Ж 

128 REM X LABEL MAKER 

138 REM + 

148 REM ж by 

158 REM X 

160 ВЕН ж Larry L Farmer 

178 REM X 387 Fiddlers &reen 

188 REM X Dover, DE 19981 

198 REM и 

288 

210 REM 

228 REM 

225 TRAP 238:Je | 4I :TRAP 48888:REM sx 
ADDED FOR BASIC KL 

238 SETCOLOR 2,12,4:5ETCOLOR 4,15,4:Р0 
КЕ 752,1 

248 PRINT CHRS(125):PRIKT “Insure that 
printer is on line and topof form is 
set." 

258 PRINT :PRINT "Press to co 
ntinue,.'";POKE 764,255 

268 IF PEEK(764)-255 THEN 268 

278 GOSUB 888:REM 9X INITIALIZATION 
288 GOTO 93@:REM %% MENU 

298 REM ЗЕ CREATE LABEL 

288 GOSUB 888:605UB 1698:REM %% REINIT 
IALIZE & DRAH BORDER 

118 GOSUB 1838:REM зе PRINT LABEL ON 5 
CREEN 

328 IF PAR(B8)-1 THEM GOSUB 578:REM #9 
CENTER LIMES HORIZONTALLY 

530 GOSUB 698:REM 3X* SET VERTICAL ADVA 
NCE 

340 PRINT "ШТЛ for single copy; BE 
for" 

358 PRINT :PRINT “multiples; E 
for new” 

368 PRINT :PRINT "label; for 
menu" 

378 POKE 53279,15 

188 IF PEEK(53273)-15 THEN 388 

398 FOR DELAY-1 TO 25:WEXT DELAY 

488 CH-PEEK(51279):IF CH-6 THEM 458:RE 
M Же SINGLE 

618 IF СН-5 THEN 478:REM ЭЧЕ MULTIPLE 
428 IF CH-4 THEM 188:REM ЭНЕ МЕН LABEL 
438 IF CH-3 THEN 920:РЕМ зе MENI 

446 GOTO 376 

458 M=1:GOSUB 588:G0TO 270 

468 N-181:G0T0 488:REM є ERROR TRAP 
478 PRINT :PRINT "How many copies (1t 
о 188)"; :POKE 752,@:TRAP 468:INPHT N 
488 IF N)188 THEM POSITION 2,19:PRINT 


x ж ж ж ж ж ж ож ж 


A-F SALADS 
G-K CASSEROLES 


L-P DESSERTS 


“:POSITIOM 2,18:G0TO 478 
498 60508 588:С05Ц8 2158:TRAP 248:G0T0 
346; REM %% PRINT LABELS & ERASE INSTR 
UCTIONS 
499 REM зне PRINT LABELS 
508 FOR Ісі TO N 
518 PRINT 11;CHR$(28);:REM ЖҰ VERTICAL 
ADVANCE 
528 FOR J-8 TO NUMLNS-1:Y-.HHNLfMCHRS 
938 PRINT #1; TEXTS (Y*1, NUMCHRS* Y) 
948 WEXT J 
558 PRINT 11;CHR$ (12) ; REM 37€ FORMFEED 
968 NEXT I:RETURN 

569 REM Е LINE CENTERING ROUTINE 
570 POSITION 5,15:PRINT "PLEASE 

5 ТА N В B Y'":;POSITION 2,121:X-8 
588 FOR I-8 TO NUMLNS-1 
590 FOR J=MUMCHRS TO 1 STEP -1 
600 Y-J*IXMUMCHRS 
618 IF ТЕХТ5СУ,У3-" '" THEM X-K*1:NEXT 
J 
628 IF J-8 OR K(2 THEN 676 

630 TEMPS-TEXTS$ (Y-J51, Y) 

648 X-INT(X/2) 

658 FOR K-1 70 X:TEXTS(Y-J*K , Y- J4K) =" 
": KREKT К 

668 TEMT$(Y-J*K) -TEMPS 
678 К-8:ТЕКТ5 (251)-" ":МЕКТ І 

688 RETURN 

669 REM 3X SET VERTICAL ADVANCE 

698 IF PAR(C18)-1 THEN 726 

788 IF PARCS)=1 THEM ON MUMLNS GOTO 75 
8,7408,718,728 

710 ON МИМ И5 GOTO 790,788,770,739,768 
728 PRINT 11;CHR$ (27) ;"C,8,5" ; : RETURN 
718 PRINT 11;CHR$ (27) ;"C,4,$" ; :RETURM 
740 PRINT 11;CHR$ (27) ;"C,8,$" ; : RETURN 
798 PRINT 141;CHR$ (27) ,"C,12,$" ; : RETURN 


760 PRINT 941;CHR$ (27) ;"C, 1,5" ; : RETURN 
778 PRINT 11;CHR$ (27); “С,7,5"; : RETURN 
788 PRINT ці; CHR$ (27) ;"C, 18,5" ; : RETURN 


738 PRINT 11;CHR$ (27) ;"C,12,$" ; : RETURN 


799 REM ЭЧЕ INITIALIZATION 

688 DIM РАВ (18), ТЕКТ5 (251), TEMPS (58) 
818 PRNTDEN-29 

820 FOR I-1 TO 10:IF I-2 OR I-5 08 1-7 
OR 1-9 THEM PARCI)-1:NEXT I 

038 РАВ СІ) -0:ИЕХТ I 

848 OPEN 91,68,80, "Р: “ 

858 PRINT П1;СНЕ5 (5); СНВ5 (6) ;:ВЕМ 9X D 
ESELECT ТЕХТ JUSTIFY & SELECT FIXES SP 
ACING 


868 PRINT V1;CHR$ (27) ;"L,48,48,5" ; :REM 
ЭНЕ SET FORM SIZE 
878 PRINT U1;CHR$ (27) ;"J,8, 361,5**; : REM 
3X* SET MARGINS 
888 IF РАВ(1) O1 THEM PRINT V1;CHR$ (2) 
;:REM 38€ SET NORMAL PRINTER MODE 
896 PRINT 81; CHR$ CPRNTDEN) ; :REM 36€ SET 
PRINT DENSITY 
280 REM HE SET LINE DENSITY 
219 IF РАВ(5)-1 THEM PRINT H1;CHRÉ(27) 
;"B,5,9"; :NUMLNS-4:RETURM 
920 PRINT Hi CHR$ (27) ;"B,6,$"; мим NS 
S: RETURN 
929 REM ЖЕ MENU 
358 PRINT CHR$(125):POKE 792,1:REM жж 
CLEAR SCREEN, ТИВИ OFF CURSOR 
248 POSITION 14,2:PRINT "x MENU зе 
959 PRINT :PRINT "Єртит LABELS" 
268 PRINT :PRINT "SET PARAMETERS" 
278 PRINT :PRINT "Quit" 
780 PRINT :PRINT :PRINT "Соммапа?":РОк 
Е 764,255 
290 IF РЕЕК(764)-255 THEN 998 
1888 CH=PEEK (764) :POKE 764,255 
1818 IF CH-18 THEN 300:ВЕМ xx PRINT 
1828 IF CH-62 THEM 1850:REM xx PARAMET 
ERS 
1838 IF CH-47 THEM CLOSE H1:PRINT :PRI 
ИТ "Have а nice day!":POKE 752,8:END : 
REM 38€ QUIT 
1048 GOTO 920 
1049 REM зне PARAMETER MENU 
1858 PRINT CHR$(C125):POSITION 14,8:PRI 
ИТ ' PARAMETERS зе" 
1060 POSITION 2,2:PRINT "PRINT SIZE:" 
1870 POSITION 4,4:PRINT "(1) ENHANCED" 
1888 POSITION 4,5:PRINT "(2) LARGE" 
1090 POSITION 4,6:PRINT (3) MEDIUM" 
1190 POSITION 4,7:PRINT "(4) SMALL" 
1118 POSITION 26,2:PRINT “LIWES/LABEL: 
и 
1128 POSITION 29,4:PRINT "(5) 4" 
11260 POSITION 25,5:PRINT "(6) 5" 
1140 POSITION 2,5:PRINT "LINE POSITION 
$i" 
1150 POSITION 4,11:PRINT "(7) LEFT JUS 
TIFIED" 
1168 POSITION 4,12:PRINT "(8) CENTERED 
и 
1170 POSITION 26,8:PRINT “VERTICAL”: PO 
SITION 26,9:PRINT “CENTERING?” 
1186 POSITION 38,11:PRINT "(9) YES" 
1158 POSITION 29,12:PRINT "(10) mo" 
1208 POSITION 11,15:PRINT "(11) PRINT 
LABELS" 


FoR POTLUCK PICNIC 


0-2 POTPOURRI (whatever) 
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LABEL MAKER con't. 


1218 PRINT '. SSS 


————M 


1228 FOR I-1 TO 4 
1238 ON І 60508 1478,1540,1528,1640 
1240 WEXT I 
1258 POSITION 2,16:PRINT "Number of pa 
rameter you want se ";:РОКЕ 752,8 

1259 REM %% RESET PARAMETERS 

1268 TRAP 1328:INPLUT N:N-INT(M) 

1278 IF M)-1 AND N(-4 THEM GOSUB 1346: 
REH 3X PRINT DENSITY 

1288 IF И-5 Өй N-6 THEM 60508 1406: ЖЕМ 
33x LINE DENSITY 

1298 IF N-7 OR N-8 THEM 60506 1430:REM 
жж LINE POSITION 

1289 IF N-9 OR N-18 THEN GOSHB 1466: ВЕ 
M 3X VERTICAL CENTERING 

1310 IF N-11 THEN TRAP 240:6C0TO 388 
1378 POSITION 315,18:PRIMNT " T 

1118 POSITION 34,18:G0TO 1266 

1148 FOR Ісі TO 4:PAR(I)-8:NEMT I:PAR( 
N)-1:605UB 1496 

1358 RESTORE 132580*109:READ PRHTDEN:RE 
TURN 

1368 DATA 1 

1378 DATA 2? 

1380 DATA 36 

1198 DATA 31 

1400 If И-5 THEN PAR(CS)-1:PAR(6)-8:60T 
о 1426 

1418 РАВ(5)-0:РАЯ(6221 

1428 GOSUB 1540:RETURM 

1410 IF И-7 THEN РАВ(73-1:РАЙй(8)-6:607 
0 1458 

1448 PARC7)-8:PAR(CBO) -1 

1458 GOSUB 1528:RETURN 

1468 IF N-9 THEN РОВ С9) =1:РЯВ (10) -0:60 
TO 1488 

1478 PAR(9)-8;PAR(CI8)-1 

1488 GOSUB 1648:RETURN 

1489 REM 39 PRINT ASTERISKS BY ACTIVE 
PARAMETERS - 
1498 FOR J-1 TO 4 

1588 POSITION 3,J+3:IF РАВ СЈ) =1 THEN P 
RINT 'Че':С010 1528 

1518 PRINT " " 

1928 WEXT J 

1538 RETURN 

1540 FOR /-5 TO б 

1558 POSITION 28,J-1:IF PAR(CJ)-i THEN 
PRINT '3":60T0 1576 

1568 PRINT " " 

1578 WEXT J 

1560 RETURN 

1590 FOR J-7 TO 8 


1688 POSITION Z,J*4:IF PAR(CJ)-1 THEN P 
RINT '":G0T70 1628 

1618 PRINT " " 

1628 NEXT J 

1630 RETURN 

1648 FOR J-9 TO 18 

1658 POSITION 28,J*2:IF PARCJ)-1 THEN 
PRINT '9é':60T0 1678 

1668 PRINT "" 

1678 NEKT J 

1688 RETURN 

1689 REM 3X DRAW BORDER & PRINT INSTRU 
CTIONS 

1698 PRINT CHR$(125) 

1788 FOR Ісі TO 4:IF PARCI)=1 THEM 172 
8 

1718 NEXT I 

1728 RESTORE 1848*1318:READ ИЦМСНЕ5 
1728 IF РАВ (4) =1 THEN NUMLNS-ZXNLUMLNS 
1748 POSITION 2,8 

1758 FOR 1-1 TO WUMCHRS:PRINT CHRS(14) 
;:MEXT I 

1768 FOR Ісі TO MUMLNS:POSITION NUMCHR 
5*2,I:PRINT CHRS(22):WEXT I 

1778 FOR І-1 TO MUMCHRS:PRINT CHR$(IJ) 
;: NEXT I 

1788 FOR I-NUMLNS TO 1 STEP -1:POSITIE 
И i,I:PRINT CHR$(C2):NEXT І 

1738 POSITION 2,13:PRIMT "To End type 
Mae": POSITION 5,14:PRINT CHR$ C1 
3) 

1888 PRINT "To Restart type ща 
“POSITION 5,16:PRINT CHRS (13) 

1818 PRINT "Рог НЕМІ type ER: 
POSITION 6,18:PRIMT СНИ5 (13) 

1828 POSITION I,1:POKE 752,0:PRIMT CHR 
5 (583; 

1828 IF PaR(4)-i1 THEM MUMLNS-HIM М5/2: 
MUMCHRS—2*HUMCHRS 

1848 RETURN 

1858 РАТА 15 

1868 DATA 38 

1878 DATA 36 

1888 BATA 25 

1889 REM XX CREATE LABEL OM SCREEN 
1898 OPEN 12,4,8,"K:'"; CP0571 

1998 ТЕКТ5-" ":TEHTS(258) TEXTS (1) : TEX 
T$C2) -TEKTS (1) : REM ЖҰ FILL MITH BLANKS 
1918 FOR Ісі TO NUPMLNS 

1928 FOR 1-1 TO NUMCHRS 

1938 IF PAR(4)-1 AND J-26 THEN PRINT 
1948 GET Н2,К5 

1950 IF К5221 AND KS(123 THEN 2086 
1968 IF KSO 126 THEM 2888: REM #+# BACKS 
PACE 


NO MEETING THIS MONTH 
AUGUST MEETING IN JASPER PARK 
7:00PM, AUGUST 15TH 
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1970 IF J-1 THEM 1348 

1988 IF PAR(4)-1 AND J-26 THEN POSITIO 
И 27,РЕЕК (84) -1:РЕІИТ CHRS$CK5) ; 

1998 СРО5-СРО5-1:9-9-1:ТЕКТ5 CCPOS, CP0S 
d=" “SPRINT CHRS(KS);:GOTO 1948 

1808 IF К5<)155 THEN 28318:REM ЭНЕ EOL 
2018 IF I(MUMLNS THEN СРО5-ІМТ ((СРО5-1 
) / WUMCHRS) XNUMCHRS*tNLUMCHRS*1:60T0 2188 
2828 GOTO 2118 

1830 IF К5-5 THEN МИМ И5-І:60Т70 2128:R 
ЕН зе END 

2848 IF K5-18 THEM CLOSE Н2:60518 2218 
:60T0 1890:REM HE RESTART 

2858 IF К5-12 THEM CLOSE &2:POP :60T0 
938 :REM %% MENU 

2068 IF К5)27 АМ) К5<32 THEN 1948;:REM 
ЭНЕ IGNORE CURSOR CONTROL COMMANDS 

1870 IF KS-156 OR K5-157 OR K5-254 OR 
К5-255 THEM 1948:REM Э IGNORE INSERT 
& BELETE COMMANDS 

2886 TEXTS (CPOS, CPOS) -СНЯ5 (K5) :СРО5-СР 
05*1:PRINT СНИ (KS); 

2898 NEKT J 

2188 PRINT :IF PAR(4)-1 AND 14-25 THEN 
PRINT 

2118 МЕХТ I 

2128 IF J-1 THEM NUMLNS-I-1 

2110 CLOSE #2 

1148 REM З ERASE INSTRUCTIONS 

2158 POSITION 2,13:POKE 752,1 

2168 FOR I-1 TO 7 

2178 PRINT " 

“NEXT I 

2108 POSITION 2,13 
2190 RETURN 
2208 REM зн ERASE LABEL 
2210 IF PAR(C4)-1 THEN MNUMLNS-2XNUMLNS: 
NUHCHRS-MUMCHRS/2 
2226 FOR I-1 TO NUMLHS:POSITION 2,1 
2218 FOR 1-1 TO NUMCHRS:PRINT " ";:МЕК 
T J 


2248 NEXT I:POSITION 3,1:PRINT СНИ9(28 
у; 

2258 IF РАВ(4)-1 THEM NUMLMS-HNUMLNS/2: 
NUMCHRS-2*NUMCHRS 

2268 RETURN 





RUTH'S PILOT 


Winding down, this is the last of the series of articles about using 
strings in PILOT. The last technique to be covered in this series is the 
ability to chose parts of a string. The program at the end of this article 
demonstrates such routines, some of the string principles we have 
been discussing, and uses one of the alphabets available on the new 
PILOT disk. 

Building upon the MS: techniques in last month's article, one can 
easily select parts of strings to be used in programs. Line 50 creates 
SALPHA made up of the letters of the alphabet separated by commas. 
As explained, the commas are separators and become $MATCH in the 
program. In this particular program random number generation is used 
to select a letter of alphabet. In other programs the number could be 
selected by the programmer or user in this type of routine. A counter is 
used to match to the first comma as many times desired. The routine 
matches the first comma it comes to in the string, makes the comma 
$MATCH, places the letter before the comma in SLEFT, and places the 
remainder of SALPHA in $RIGHT. $RIGHT must be placed in the 
accept buffer to be reused each time through the routine until the 
counter reaches O. 

$LEFT is placed in the accept buffer to designate the letter 
displayed on the graphics screen. $LEFT passes its value to $LETTER 
in line 210 so it can be used with the match command to determine 
right and wrong choices. 

We have used the smiley face as the reinforcement in this program 
because it is our preschooler's favorite. A little more fun can be added 
by making the face wink, etc. by replacing the characters shown and 
using the POS. command. 

This alphabet is our favorite lower case alphabet because of its size. 
The J:* MATCH statement at the end of each letter will have to be 
removed to use it elsewhere (they are not on the PILOT disk). Using 
string techniques makes it possible to do many things with alphabets 
and word type programs. This simple program is just one example of 
the kind of thing which can be done. "Unwind" a little, it can be 
challanging, and sometimes surprising what one finds at the end of a 
string. 

— Ruth Ellsworth 


AGENT U.S.A. 


AGENT U.S.A. by Scholastic Wizware is, without a doubt, the 
favorite game software of our 11 and 13 year olds, and assorted 
friends. The loss of interest usually seting in after the children have 
played a game a few times has been totally absent on this one. 
Fortunately the sound accompanying this game is not displeasing as 
it has become almost background music in our home over the last 
month and a half. 

This piece of software is a cleverly disguised geography and map 
lesson. The object of the game is to find and defuse the "FuzzBomb" 
which turns everyone it touches into “Еиг2Воаіеѕ.” At the beginning 
of the game the player is placed in a randomly chosen city train 
station. All the cities in the game are linked by train or in some cases 
by monorail. The player becomes "Agent U.S.A." and uses the train 
system to travel from city to city in order to find and destroy the 
"FuzzBomb." Maps and information concerning the “Fuzz Menace" 
are located in the Information Booth at the train station of all state 
capitols. Our children have spent hours studying the Atlas and 
planning their trips through this game as “Agent U.S.A." 

We highly recommend this game. We wish there were more like it. It 
is educational, challenging, and fun. The children insist it is never the 
same from game to game and they love to play it “just to see what will 
happen." 

—Ruth Ellsworth 


SPACE KNIGHTS 


SPACE KNIGHTS by Reston Publishing Company is an interesting 
innovation in adventure software. This package comes with a book of 
science fiction adventures and disk of programs to put the reader into 
the action of the story. 

This package is well worth the price. Nine games are included on 
the double sided disk. Of these our favorites were: GAMMALON 
ENCOUNTER, a code cracking then “shootem up” game; WAR ROOM, 
a dungeon type game; BUG BUSTER, a “find and destroy the enemy” 
game; and WEOMBY, a good landing simulation. 

The games in general were not easy, in fact, the MYSTERY GAME is 
really that — a real head bender. 

Our problem with this package is it comes ona speed sensitive disk 
we have not yet been able to get our drive to read, so we have had to 
go visiting to use this software (no small trick with a house full of 
kids). | must say, however, that Reston bent over backwards trying to 
provide a disk which would work with our system. 

If you are interested in science fiction and want to experience some 
of the “feeling of being there,” or if you like the variety of not so easy 
games, this package will probably meet all your expectations. It 
requires 24K minimum, a BASIC cartridge, joysticks and paddles. 

— Ruth Ellsworth 
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MAIL-MERGE 


(Reprint: May, 1984 Redwood Atari Group) 

AtariWriter provides for creating form letters by using 
[OPTION][INSERT]. This function halts the printing and prompts the 
user for input at each point in the letter which needs to be 
individualized. You must hang around the printer, so it might not be 
practical for you. 

An interoffice memo at Atari, Inc. reveals a way around this 
limitation. The [OPTION]INSERT] feature can only handle 35 
characters at a time. The manual warns you to make a list if you have 
several “blanks” to be filled in, because you cannot see the text as it 
is printing. The key to the mail-merge feature is to create a data file 
(the list) which contains each “fill-in” in sequential order. Then you 
chain the file while printing. 

Here's a sample letter using [Ol] for [OPTION][INSERT] and [А] for 
[RETURN]: (ОШО) 

Dear{Ol], 

It sure was great to get your letter of last [Ol]! ме been [Ol]. tt 

sounds like you've been [Ol]. Let's keep in touch! 
[Ol] 

Here’s a sample data file: 
[RI[RIMom[R]month[R]well[R]well, too[R]Love,[R] 

Here's another sample data file: 

[R][R]Buford[R]yearfR]busy, т still busy, and | can't talk now[R]busy 
yourself, after graduating from Folsom. . . [R]Sincerely,[R] 

To use the mail-merge, create your form letter using 
[OPTION][INSERT]. Then create your data file in sequence, making 
sure each item is followed by [RETURN]. You must be sure to have the 
same number of items in your data file as are to be entered in your 
letter, otherwise the subsequent letters could be messed up. The 
[RETURN] acts as the delimiter for the data — AtariWriter goes back to 
the original and continues printing when [RETURN] is encountered 
until the next [OPTION][INSERT] occurs. 

Print the letter. When the prompt reads "MAKE ENTRY, PRESS 
RETURN,” you enter [CONTROLJ[V], the chaining command, and 
D:DATAFILENAME in capital letters. Printing will resume and 
AtariWriter won’t bother you again until it is out of data (or done). 

— Mary Varley 


SALVAGE 410 


(Reprint: June, 1984, Suburban Chicago Atarians) 

The electronics of the Atari 410 recorder can be used with a stereo 
cassette recorder for data storage. The 410 circuit itself can be used 
as an interface. Maybe your 410 has its head out of alignment and you 
cannot get the unit to work dependably. maybe the motor speed is off 
or does not run at all. This “how-to” article will allow you to salvage 
your 410 as long as the electronics are ok. Since it’s solid state, | 
guess the electronic part is more reliable than the mechanical part. 

Figure 1 shows the 410 printed circuit board with a partial path 
layout for easy identification. The black, filled-in areas signify the 
copper paths. The white dots within the black areas are soldered 
connections. All you have to do is run a few jumper wires from the 
circuit board to a couple of jacks mounted in the 410 case. First, 
locate, drill and mount two jacks into the bottom half of the 410 plastic 
housing. | used phono jacks (Radio Shack #274-346) to keep the 
connections standard between the 410 and my stereo cassette deck. 
Mount the jacks on the back, or on the side near the back. There is 
plenty of room there. Next, carefully solder the jumper wires to the 
printed circuit board. | used shielded cable because | had some. You 
can probably use non-shielded wire if you keep the length short. One 
wire connects one jack to the point on the board labelled “Input to 
Filter Section”. The jack ground is wired to the “Ground Path”. The 
brown wire from the I/O cable is soldered to the board to the other 
jack. You can wire the two jack ground connections together. Be 
careful when soldering to the printed circuit board. You could add a 
coupling capacitor between each jack and the other lead to the jumper 
wire. Use 0.1 mfd capacitors (Radio Shack #272-1069 or equivalent). Be 
sure to kee the wires properly insulated. 

The jack with the brown wire going to it should be connected to the 
right channel input of your stereo recorder. This wire carries the signal 
out of your computer. Set your recording level to Odb as you do 
normally. The other jack is connected to your stereo recorder’s right 
channel output. This signal is injected into the 410's filter circuit 
which then goes to the computer. The signal level from your stereo 
recorder is not critical. 

The stereo recorder has to be manually started and stopped. When 
you press the RETURN key on the computer, you have to start the 
stereo recorder in either the play or the record mode. If you play back a 
multi-load tape, you are going to have to stop and start the stereo 
recorder between the appropriate sections. 

Hopefully, this setup will help someon use Atari program tapes with 
their mechanically defective 410. It may not be as convenient to use as 
a properly working 410, but for the price of two jacks, a little wire, and 
a little time, you can get your cassette-based system up and working 
again. 

— Mike Chesta 


DISK N' DATA 


by Arnie Silverstein 


"BOOT FILE LOADER” 


Reviewing our earlier article, 
(ВВ vol I,H82) boot files are sequen- 
tial files, loaded one sector after 
another in numerical order until done. 
First, sector one, bytes zero and one 
on DOS disks say that three sectors 
are to be read. Then, bytes two and 
three indicate the load address. Byte 
six is the first actual instruction 
to be executed. In a boot disk, this 
information can load the entire pro- 
gram. 


This month's program is a boot 
loader that allows some binary files 
to be loaded without DOS being 


present on the disk. The program 
writes a menu program into the boot 
sectors in the place where DOS norm- 
ally writes as a disk is formatted. 
Using a new disk, the program will 
first format the disk (if desired) 
and then it will overwrite the boot 
sectors. To use the program, use the 
"MENU MAKER" option from the main 
menu of this disk. The program is 
contained on this disk in the file 
"BOOTURIT.BAS". 


Once this is done, use the DOS 
"0" function (Duplicate File) to get 
your binary programs onto the disk. 
On booting the disk, test the menu on 
your particular program to see if it 
will run. Not all will, but enough 
will for you to come to love this 
short fast loader for games and 


utilities that don*t require DOS. 


Flease note that DOS will no 
longer function on any disk altered 
by this program. You are limited to 
ten programs per disk side. 


Source code for the disk writing 
portion of the program is supplied on 
side 2 of this disk as "DISKMWRIT.ASM". 
The routines used here are relocatable 
and take the form of a machine lang- 
uage string. The data to be written 
into the boot sectors is contained in 
a "DATA string". The Resident Disk 
Handler is used by the program. 


Reader comments, problems and 


suggestions are requested so that this 
loader might be improved. 
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TYPING 1 


TYPING 1 (Emerald Valley Micro Consultants, P.O. Box 2605, 
Eugene, Or., 97402, $30) is a true typing program for the Atari and not a 
game which also teaches typing as you play it. This program starts 
with the basics of how you should sit, arms a certain way, eyes a 
certain way, and where your hands and fingers should be. From that 
you are given certain typing exercises to perform and then you can 
find out your speed etc. As you practice and go from lesson to lesson 
you will find you have improved your typing if you knew how to type 
and if you didn't you will find you are learning to type. 

The manual is designed like some of the typing manuals used in 
school, and it stands up on its own. The pages flip over as you finish 
with them. There are many diagrams to show you what keys you are 
using and where your hands should be, and at the same time the text 
explains what should be occuring with the lesson you are doing. 

І found by following the manual and doing the lessons my typing 
was inproved in just a short period of time using this program. It is a 
program for the beginner and the experienced typist as well. 

— Larry Gold 





18 REM JO3HBOOBOOOOHOHOOOIOOOHHOOOHOBHOBE 
28 REM Ж THE В.й.5.І.С. BULLETIN + 
38 REM + VOLUME ТІ NUMBER 2 * 
48 REM X PROGRAM IN THE PUBLIC DOMAINE 
58 REM IJ373BOB0OOHOOOBOOOOHOGOOHHOHOOOOBOHE 
108 OPEN 14,4,8,"K;":POKE 752,1 

118 ? "қ" 

128 POSITION 14,5:? "BOOT WRITER" 

138 ? :7 |? "CHOOSE ОМЕ:" 


149 752" FORMAT DISK - 
Ше 

158 7 1:7" DO NOT FORMAT - IB A A. 
ғ" | 

168 GET 94,5 


178 IF К-78 THEN 1888 

i88 IF M-89 THEN 1018 

198 GOTO 168 

1808 ? "R": GOTO 1868 

ieig ? "а" 

1828 POSITION 15,5:7 "ЯЛ" 

10658 7:7" THIS PROGRAM WILL FORMA 


T DISK" 

18486 ? І? " AND IT MILL CHANGE THE 
BOOT " 

1658 7 ;? " SECTORS. INSTALL A NEM 
DISK " 

i668 POSITION 10,15:7 “Raw 
EAD Ym 


1878 GET #4,V:IF Ус89 AND Х-89 THEN GO 
TO 1108 

1075 IF Ү-89 AND X-78 THEN GOTO 1116 
1088 GOTO 1878 

1898 STOP 

1188 КІФ 254,11,0,0,' D:":CLOSE Hi 

1118 DIM ML$ (45) , BOOTS (384) 

1128 MLS CL -"hhg У hah- hn had Hn IR 
Pies ЕЛИТ" 

1128 BOOTS (13 Z"9 АЛАЯ ПЕ ЛТ» 
НУ ае Нн ПЛАН У БА 
760 5 CEP A ZENA" 

1148 800750812 -""n Vi НТ A] SEA п 
BE ATTA Ti Gnd SA: HAST 
Baag odiare" 

1158 Е0078(161):“ Ahi Eng" 'A INK 
М0 МСАТ INE INF INi hawg 
ЮЫП Г ГҮЛӨ NAF 

1158 BOOTS (2411 293 ЫЗ ПІ КУА Го 
2:38 3810 ни” Па Рана De! vied 
[BE ^g VE! ата" 

1178 BOOTS (121) 4) НЕМЕМЧИЕРЫЦИНУ CHES 
ӘнфрррбІ App NNNNNNNNME db Фа Фо Фі 9c nenu 
"v 

1188 X-USR(ADRCMLS) , 1, ADR CBOOTS2) 

1198 X-USR(ADR(HLS) , 2, DR (B00T5) +128) 
1288 X-U5SR(ADR(CMLS) , Z, ADR (BOOTS) +256) 
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GENISIS 
) 


(Datasoft $30 

in Genesis, you've been transformed into the king of the scorpions, 
fighting to protect your domain. You have been placed on the edge of a 
huge pit, leading to the earth's core. Crawling up the sides of this pit 
are venomous spiders, trailing blue webs behind them. 

The spiders gnaw away at the tunnel, as you blast them with your 
venom. The spiders will eat away the sides of the pit, limiting your 
movement to the walls that haven't already crumbled under the 
spiders' jaws. 

To add to the frenzy is a purple brick sliding along the rim of the pit. 
Occasionally, this brick is turned to green. Touching a purple brick is 
certain death, but with a green brick in hand, you may repair the 
tunnel, getting double the points in the meantime. 

After a certain number of spiders have been eliminated, you 
advance to the next, and more difficult wave. This game is equipped 
with the usual arcade options: a pause feature, one or two player 
options, and a difficulty selection. 

Though it is an enjoyable game, it doesn't quite have enough depth 
or purpose to it. | want to describe what happened the first time my 
little brother, the arcade game fanatic, tried this game. After his game, 
he looked blankly at the screen for a few moments, then turned toward 
me, expecting an explanation. "Is that all?" he questioned. The 
graphics and sound are О.К., but could be much better. 

— Tim Ebling 
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IN NEWER RECORDERS WIRES 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 
Secretary — Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 
Librarian — Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503— 689-7106. 
Editors — 
Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 / 503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503 / 484-9925 
E.R.A.C.E. (Education SIG Editor)— 
Ali Erickson, 295 Foxtail Dr., Eugene, OR 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary — 
Robert Browning, 90 W. Myoak, Eugene, OR 97404 / 503-689-1513 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 
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IYPESEITING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 

Ла 


ealning & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8" double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ’82 issue 
for complete details. 


